home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side B).do / STEREO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  6KB  |  144 lines
  1. 5  HOME 
  2. 10  REM  CONTRIBUTED TO SOFTDISK MAGAZETTE MARCH 1982 BY R.L.MCARTHY  (ZIP=92672)
  3. 20  GOSUB 2000: REM  INTRO
  4. 25  GOSUB 3000: REM   DSM TECHNIQUE INST
  5. 28  GOSUB 4000: REM  MENU
  6. 30  GOSUB 1000: REM  STEREO VIEW
  7. 40  GOTO 28
  8. 99  END 
  9. 1000  REM      HIRES STEREOGRAPH                                                                     FOR DSM
  10. 1010  HGR2 
  11. 1020  HPLOT 50,60 TO 90,60 TO 90,100 TO 50,100 TO 50,60
  12. 1030  HPLOT 190,60 TO 230,60 TO 230,100 TO 190,100 TO 190,60
  13. 1040  HPLOT 70,104 TO 90,104
  14. 1050  HPLOT 70,105 TO 90,105
  15. 1060  HPLOT 70,106 TO 90,106 TO 70,107 TO 90,107
  16. 1070  HPLOT 215,104 TO 235,104 TO 215,105 TO 235,105 TO 215,106 TO 235,106 TO 215,107 TO 235,107
  17. 1080  HPLOT 70,80 TO 71,80 TO 71,81 TO 70,81
  18. 1090  HPLOT 205,80 TO 206,80 TO 206,81 TO 205,81
  19. 1100  HPLOT 70,70 TO 71,70 TO 71,71 TO 70,71
  20. 1110  HPLOT 202,70 TO 203,70 TO 203,71 TO 202,71
  21. 1120  HPLOT 25,65 TO 50,40
  22. 1130  HPLOT 165,65 TO 180,40
  23. 1140  HPLOT 45,130 TO 46,130
  24. 1145  HPLOT 45,131 TO 46,131
  25. 1150  HPLOT 200,131 TO 201,131
  26. 1155  HPLOT 200,132 TO 201,132
  27. 1998  GET A$
  28. 1999  POKE  -16302,0: TEXT : RETURN 
  29. 2000  REM  INTRO TEXT
  30. 2010  PRINT "THE STEREO PHOTOS MAILED WITH THE DEC"
  31. 2020  PRINT "SOFTDISK ARE THE TYPE POPULAR AT THE"
  32. 2030  PRINT "TURN OF THE CENTURY.  THE PRIDE OF THE"
  33. 2040  PRINT "PARLOR WAS A STEREOPTIC VIEWER AND A SET"
  34. 2050  PRINT "OF STEREO VIEW CARDS.  THEY WERE ALSO"
  35. 2060  PRINT "POPULAR IN PUBLIC LIBRARIES UP UNTIL AT"
  36. 2070  PRINT "LEAST THE WW II PERIOD."
  37. 2075  PRINT "      THEY WORKED BY MERGING";
  38. 2077  PRINT " THE RIGHT"
  39. 2079  PRINT "PICTURE AS SEEN BY THE"
  40. 2080  PRINT "THE RIGHT EYE WITH THE LEFT PICTURE AS"
  41. 2090  PRINT "SEEN BY THE LEFT EYE."
  42. 2095  PRINT "          THE VIEW THRU TOILET"
  43. 2100  PRINT "PAPER ROLLS AS DESCRIBED BY MR SOFTDISK"
  44. 2110  PRINT "WORKS ON THE SAME PRINCIPLE BUT IS LESS"
  45. 2120  PRINT "ELEGANT THAN THE OLD STEREOSCOPES WITH"
  46. 2130  PRINT "ENLARGING GLASS LENS AND BEAUTIFUL"
  47. 2140  PRINT "WOODEN FRAMEWORK."
  48. 2150  VTAB 20: PRINT "(PRESS ANY KEY)"
  49. 2160  GET A$
  50. 2170  HOME 
  51. 2180  VTAB 3: PRINT "THIS PROGRAM ILLUSTRATES A DIFFERENT"
  52. 2190  PRINT "METHOD KNOWN AS THE 
  53. 2200  VTAB 7: PRINT "    DISTANT STARE METHOD"
  54. 2210  PRINT "          (D S M)"
  55. 2215  PRINT : PRINT 
  56. 2220  PRINT "OR  'CROSS-EYED' VIEWING.  ONCE THE"
  57. 2230  PRINT "TECHNIQUE IS MASTERED NO MECHANICAL AIDS"
  58. 2240  PRINT "ARE NEEDED.  THE PHOTOS SENT WITH THE"
  59. 2250  PRINT "DECEMBER SOFTDISK WILL WORK WITH THE DSM"
  60. 2260  PRINT "ONLY IF THEY ARE CUT APART AND RIGHT AND"
  61. 2270  PRINT "LEFT SIDES REVERSED.  OTHERWISE THE"
  62. 2290  PRINT "BACKGROUND AND FOREGROUND ARE REVERSED "
  63. 2300  PRINT "  IN DEPTH."
  64. 2310  VTAB 23: PRINT "(PRESS ANY KEY)": GET A$
  65. 2320  HOME : RETURN 
  66. 3000  REM  DSM TECHNIQUE
  67. 3005  HOME 
  68. 3010  PRINT "          THE DSM TECHNIQUE"
  69. 3020  PRINT : PRINT : PRINT "POSITION YOUR EYES AT A COMFORTABLE"
  70. 3025  PRINT "VIEWING DISTANCE FROM THE CRT SO THAT"
  71. 3030  PRINT "IMAGES ARE IN FOCUS(ABOUT 18 INCHES"
  72. 3035  PRINT "WORKS WELL FOR ME). KEEP YOUR EYES"
  73. 3040  PRINT "LEVEL AND LOOK DIRECTLY AT THE SCREEN"
  74. 3045  PRINT "FROM HEAD ON RATHER THAN AT A DOWNWARD"
  75. 3050  PRINT "ANGLE."
  76. 3055  PRINT : PRINT "   PLACE YOUR INDEX FINGER TIP ON THE"
  77. 3060  PRINT "CENTER OF THE CRT BETWEEN THE TWO IMAGE"
  78. 3065  PRINT "GROUPS.  GAZE INTENTLY AT YOUR FINGER"
  79. 3070  PRINT "TIP AND IGNORE THE IMAGES.  KEEP"
  80. 3075  PRINT "CONCENTRATING AND FOCUSING YOUR"
  81. 3080  PRINT "ATTENTION ON YOUR FINGER TIP AS YOU"
  82. 3085  PRINT "SLOWLY MOVE IT TOWARDS YOUR NOSE."
  83. 3090  PRINT "(PRESS ANY KEY)"
  84. 3095  GET A$: HOME 
  85. 3100  PRINT : PRINT : PRINT "AS YOUR FINGER TIP APPROACHES YOUR"
  86. 3110  PRINT "NOSE YOU MAY BECOME AWARE OF TWO IMAGES"
  87. 3115  PRINT "MOVING TOWARDS THE CENTER OF THE SCREEN"
  88. 3120  PRINT "AND MERGING INTO ONE."
  89. 3145  PRINT : PRINT "NOW... WHILE MAINTAINING THIS DISTANT"
  90. 3150  PRINT "STARE ....SLOWLY BECOME AWARE OF THE"
  91. 3155  PRINT " MERGED CENTER IMAGES AND BRING THEM"
  92. 3160  PRINT "INTO FOCUS WITHOUT BREAKING THE 'DISTANT"
  93. 3165  PRINT "STARE'.  THE MERGED IMAGE SHOULD POP"
  94. 3179  PRINT "INTO A SHARP 3-D PICTURE WITH DEPTH!"
  95. 3190  PRINT : PRINT "(PRESS ANY KEY)"
  96. 3200  GET A$: HOME 
  97. 3210  PRINT : PRINT "THE RIGHT AND LEFT IMAGES WILL REMAIN"
  98. 3220  PRINT "ON THE FAR EDGES OF YOUR FIELD OF VIEW"
  99. 3225  PRINT "BUT SHOULD BE IGNORED."
  100. 3230  PRINT : PRINT "  IF YOU HAVE TROUBLE MERGING THE IMAGES"
  101. 3235  PRINT "TRY TILTING YOUR HEAD SLIGHTLY TO ALIGN"
  102. 3240  PRINT "THE IMAGES IN THE PLANE OF THE CRT."
  103. 3250  PRINT "SOME PEOPLE SOON LEARN TO DISPENSE WITH THE"
  104. 3255  PRINT "FINGERTIP AS AN AID AND CAN FOCUS WITH JUST"
  105. 3260  PRINT "A GLANCE AT THE TIP OF THEIR NOSE OR"
  106. 3265  PRINT "NOTHING AT ALL."
  107. 3270  PRINT : PRINT "IT IS LEFT AS AN EXERCISE FOR THE"
  108. 3275  PRINT "STUDENT TO FIGURE OUT WHY THE OBJECTS"
  109. 3280  PRINT "ARE EITHER IN THE PLANE OF THE CRT OR"
  110. 3285  PRINT "BEHIND IT OR IN FRONT."
  111. 3290  PRINT "(PRESS ANY KEY)"
  112. 3300  GET A$: HOME 
  113. 3310  VTAB 5: PRINT "POSSIBILITIES EXIST FOR ANIMATION."
  114. 3320  PRINT "(SEE REFERENCE (1))"
  115. 3325  VTAB 12: PRINT "   BE PATIENT......."
  116. 3330  PRINT : PRINT : PRINT : PRINT "        KEEP TRYING"
  117. 3335  PRINT : PRINT "WHEN YOU'RE READY TO TRY JUST ------------------------"
  118. 3990  VTAB 22: PRINT "(PRESS ANY KEY)"
  119. 3995  GET A$: HOME : RETURN 
  120. 3999  RETURN 
  121. 4000  REM  MENU
  122. 4020  VTAB 5: PRINT "    (1)  GO  TO THE STEREO VIEW    
  123. 4030  VTAB 9: PRINT "    (2)  BACK TO DSM TECHNIQUE
  124. 4035  VTAB 13: PRINT "    (3) REFERENCES
  125. 4037  VTAB 17: PRINT "    (4) QUIT
  126. 4040  VTAB 20: PRINT " YOUR CHOICE?": GET N$
  127. 4042 N =  VAL(N$)
  128. 4044  IF  ASC("N$") = 13  THEN 4040
  129. 4045  IF N <1  OR N >4  THEN  GOTO 4040
  130. 4050  ON N GOSUB 1000,3000,6000,8000
  131. 4055  GOTO 28
  132. 6000  REM  REFERENCES
  133. 6010  HOME 
  134. 6020  PRINT "REFERENCES :"
  135. 6030  PRINT "(1) MICRO MAGAZINE,#40,SEPT 1981,PAGE 71"
  136. 6035  PRINT "   GOOD PROGRAM BUT NOT THE DSM"
  137. 6040  PRINT "I FIND THE PAPER BETWEEN THE EYES VERY DIFFICULT COMPARED TO THE DSM."
  138. 6050  PRINT : PRINT "(2) SCIENTIFIC AMERICAN MAGAZINE                AUG 1974"
  139. 6055  PRINT "    SHOWS STEREOGRAMS OF LARGE ORGANIC                  MOLECUES"
  140. 6060  PRINT "  GENERATED BY A LARGE 'MAINFRAME'."
  141. 6900  VTAB 23: PRINT "(PRESS ANY KEY)": GET A$
  142. 6998  HOME 
  143. 6999  RETURN 
  144. 8000  TEXT : HOME : END